home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / intro.dir / 00002_Script_cursorPrep & AnimatePrep < prev    next >
Text File  |  1999-03-01  |  1KB  |  42 lines

  1. global oldMouseP, cursorSpr
  2. global drops
  3. global animate
  4. global gravite
  5.  
  6. on enterFrame
  7.   
  8.   if not(soundBusy(1)) then puppetSound 1, member "fuckhead"
  9.   
  10.   set oldMouseP = point(0,0)
  11.   set cursorSpr = 42
  12.   
  13.   set drops = []
  14.   repeat with a = 30 to 41
  15.     append drops, new(script "dropz", a)
  16.   end repeat
  17.   
  18.   
  19.   set nikChan = 12
  20.   set tomChan = 9
  21.   set benChan = 10
  22.   set JeaChan = 11
  23.   
  24.   set nikAnim = ["Fly"]
  25.   set tomAnim = []
  26.   set jeaAnim = ["chix1"]
  27.   
  28.   set benAnim = ["stretch_1", "stretch_2", "stretch_3", "stretch_4", "stretch_5",¼
  29.                      "stretch_6", "stretch_7", "stretch_8"]
  30.   
  31.   set animate = [new(script "animatez", tomChan, tomAnim), ¼
  32.                  new(script "animatez", benChan, benAnim)]
  33.   
  34.   set gravite = [new(script "gravity", nikChan, nikAnim, 0), ¼
  35.                  new(script "gravity", jeaChan, jeaAnim, the number of member "soft")]
  36.   
  37.   
  38.   repeat with i = 5 to 7 --navbar & quit & credits
  39.     puppetsprite i, TRUE
  40.   end repeat
  41.   
  42. end